home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d16
/
wc15_b.arc
/
RECOMP.WMS
< prev
next >
Wrap
Text File
|
1991-03-22
|
2KB
|
56 lines
;RECOMPILE all macro source files in the 'MACRO DIRECTORY'
STOP ; if we are not currently online go online
CHGDIR(GETSESSSTR(28)) ; change to macro directory
j = 0
file$ = FILEFIND("*.wms",0)
WHILE( (NULL(file$) ==0 ))
max = max+1
file$= FINDNEXT
WEND
DIALOGBOX 87, 27, 173, 94, 21
CTEXT 7, 11, 160, 18, "Start from Beginning or Do You Want to Select the First File?"
PUSHBUTTON 28, 65, 115, 14, "I'll Select the First File"
PUSHBUTTON 28, 39, 115, 14, "Start From Beginning"
DEND
DO which = DIALOG? until(which != 255)
sendspeckey(1,0,ASC("A")) ; send key ALT+A
sendspeckey(0,0,ASC("F")) ; select files
i = 0
DO
sendspeckey(0,0,9) ; send tab key
i = i+1
UNTIL( i == 5)
window = GETFOCUS? ; window = file listbox
sendspeckey(0,0,36) ; send Home key
If(which == 2){
sendspeckey(0,0,9) ; send tab key to set focus elsewhere
DO UNTIL(window == GETFOCUS?)
}
next_file:
sendspeckey(0,0,32) ; send space key to select file
i = 0
DO i=i+1 UNTIL(i>100) ; wait for window to respond
sendspeckey(1,0,ASC("C")) ; send ALT+C to compile
DO i=i+1 UNTIL(i>100) ; wait for compiler window to get focus
win1=GETFOCUS? ; win1 = Compile button
DO
i=GETFOCUS?
UNTIL( (i!=win1) || (i==window) ) ; eventually focus will be at compiler window
if(window!=GETFOCUS?){
HALT
}
j = j+1
if(j == max){
sendspeckey(1,0,ASC("A")) ; send ALT+a to cancel
HALT
}
sendspeckey(0,0,40) ; send select next file aroow down
goto next_file
END